Apple Reference & Presen…rary 5 (Internal Edition)/Apple R&P Lib Internal v5.0.iso/6-Developer Demos/Developer Demos-Ed./Macintosh School® CD-ROM Demo/Macintosh SchoolÆ CD-ROM Demo/background_114030.txt

Text File | 1990-08-14 | 6.2 KB | 295 lines

-- background: 114030 from stack: in
-- bmap block id: 114549
-- flags: 0000
-- background id: 0
-- name: Report Manager
----- HyperTalk script -----
on openBackground
  installMenuBar 1130,1131,1132,1133,1134,1135,1136,-206
end openBackground

on doMenu menuItem
  lock screen
  if menuItem contains "About" then
    resetCards
    restoreMenuBar
    go to card short name of this background of background "About"
    unlock screen with zoom close
  else if menuItem is "Home" then
    resetCards
    restoreMenuBar
    go home
  else if menuItem contains "Quit" then
    resetCards
    restoreMenuBar false
    go to card "Mac School® Shell"
    unlock screen with zoom close
  else if menuItem is "New…" then
    go to card "New" of this background
  else if menuItem is "Open…" then
    go to card "Open Dialog" of this background
  else if menuItem is "Close" then
    visual zoom close
    go to first card of this background
  else if menuItem is "Transfer" then
    if short name of this card is "Attendance Report" then
      resetCards
      restoreMenuBar false
      go to background "CSL Attendance"
    else if short name of this card is "Letter" OR short name of this card is "Report Card" then
      resetCards
      restoreMenuBar false
      go to background "Report Cards"
    end if
    unlock screen with visual zoom open
  end if
  unlock screen
end doMenu

on groupOne
  repeat with index = 1 to 6
    if index is not id of target then
      set hilite of background button id index to false
    end if
  end repeat
  if short name of target is "Hand" AND hilite of target then
    set hilite of target to true
    go next
  end if
  set hilite of target to true
end groupOne

on resetCards
  repeat with index = 2 to 6
    set hilite of background button id index to false
  end repeat
  set hilite of background button id 1 to true
end resetCards



-- part 1 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=450 top=61 right=82 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hand
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=476 top=61 right=82 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Arrow
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=450 top=83 right=104 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Text
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=476 top=83 right=104 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Line
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=450 top=105 right=126 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rectangle
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=476 top=105 right=126 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Round Rect
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=449 top=126 right=156 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=449 top=160 right=190 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=449 top=192 right=222 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=449 top=224 right=254 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=98 top=43 right=58 bottom=277
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 12 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=450 top=257 right=335 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=23 right=38 bottom=26
-- title width / last selected line: 0
-- icon id / first selected line: 5068 / 5068
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close
----- HyperTalk script -----
on mouseDown
  set icon of me to "Close Box Hi"
end mouseDown

on mouseLeave
  set icon of me to "Close Box"
end mouseLeave

on mouseUp
  set icon of me to "Close Box"
  visual effect zoom close
  go to second card of this background
end mouseUp